home *** CD-ROM | disk | FTP | other *** search
/ Colson Caster Selection Guide 3 / Colson Caster Selection Guide 3.0.iso / data1.cab / Program_Executable_Files / colsoncd.dxr / 00001Series_344.ls < prev    next >
Encoding:
Text File  |  2000-01-12  |  1.0 KB  |  37 lines
  1. on mouseUp
  2.   puppetSound("mainsnd")
  3.   put "64" into field "whmodnum"
  4.   put EMPTY into field "bemodnum"
  5.   put ".7" into field "comodnum"
  6.   put EMPTY into field "whexmodnum"
  7.   put EMPTY into field "bearingoption"
  8.   if chars(field "mtmodnum", 2, 2) contains "9" then
  9.     if field "diamodnum" contains "8" then
  10.       put "99." into field "mtmodnum"
  11.     else
  12.       put "09." into field "mtmodnum"
  13.     end if
  14.   end if
  15.   if chars(field "mtmodnum", 2, 2) contains "8" then
  16.     if field "diamodnum" contains "8" then
  17.       put "98." into field "mtmodnum"
  18.     else
  19.       put "08." into field "mtmodnum"
  20.     end if
  21.   end if
  22.   if chars(field "mtmodnum", 2, 2) contains "9" then
  23.     if field "maincasterphoto" contains "impak" then
  24.       put "79." into field "mtmodnum"
  25.     end if
  26.   end if
  27.   if chars(field "mtmodnum", 2, 2) contains "8" then
  28.     if field "diamodnum" contains "8" then
  29.       if field "maincasterphoto" contains "impak" then
  30.         put "78." into field "mtmodnum"
  31.       end if
  32.     end if
  33.   end if
  34.   puppetTransition(47, 1, 8)
  35.   play frame "4bbearingc"
  36. end
  37.